setwd("/homes/jc227089/SRE/oneD/DispEvol")

fnames<-list.files(pattern="DispEvol")
fnames<-fnames[!grepl("var", fnames)]

concat<-c()
for (ii in 1:length(fnames)){
	load(fnames[ii])
	temp<-c(out$parameters, maxX=max(out$population[,"X"]))
	concat<-rbind(concat, as.data.frame(temp))
}

save(concat, file=paste("results", Sys.Date(), ".RData", sep=""))
noD<-concat
system("rm NoDispEvol*.RData")



setwd("/homes/jc227089/SRE/oneD/DispEvol")

fnames<-list.files(pattern="DispEvolvar")

concat<-c()
for (ii in 1:length(fnames)){
	load(fnames[ii])
	temp<-c(out$parameters, maxX=max(out$population[,"X"]))
	concat<-rbind(concat, as.data.frame(temp))
}
varB<-concat
save(concat, file=paste("varBresults", Sys.Date(), ".RData", sep=""))
system("rm DispEvolvar*.RData")


fnames<-list.files(pattern="DispEvol")
fnames<-fnames[!grepl("var", fnames)]
concat<-c()
for (ii in 1:length(fnames)){
	load(fnames[ii])
	temp<-c(out$parameters, maxX=max(out$population[,"X"]))
	concat<-rbind(concat, as.data.frame(temp))
}
yesD<-concat
save(concat, file=paste("results", Sys.Date(), ".RData", sep=""))
system("rm DispEvol*.RData")